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Purpose 


This manual was written to provide the OSCAR user with 

(a) a ready reference to the facilities of the OSCAR system 

(b) the background necessary to program the user-supplied 
subroutines required for the conduct of specific experiments. 

Prerequisites 

This manual assumes that the reader has a working knowledge of 
the PAL-III assembly language and is familiar with the PDP-8 family of 
computers. Information about PAL and the PDP-8 may be obtained from the 
Digital Equipment Corporation's "Introduction to Programming", chapters 
one through six. A working knowledge may be obtained at any teletype 
console plugged into a PDP-8 series computer. 
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1.1 Introduccion 


General Description 


The OSCAR system is designed to reduce the amount of programming 
needed for any specific class of experimental paradigms. In most cases 
less than four core pages of programming will be required from the user 
for his particular application. OSCAR oversees the servicing of the 
experimental stations (operant chambers, subjects* control panels, or 
other devices), manipulates and stores data for input or output, and 
provides subroutines for additional programming. OSCAR thus requires 
somewhat more programming than some available compiler languages but gives 
the user more flexibility in experimental design than these compilers. 

OSCAR also provides a degree of generality not available when the experi¬ 
menter writes a completely new program for each new paradigm. 

1.2 General functions 

OSCAR s functions may be subdivided into six general categories 
as follows: 

1) The Executive Monitor is the general overseer of the system 
and determines what gets done, when, and how. It is important to note that 
OSCAR controls the handling of the user's programming rather than the user's 
programming controlling OSCAR. That is, the Monitor is a complex interaction 
of subsystems which precludes the use of parts of OSCAR without engaging all 
of OSCAR. 


2) The interrupt servicing routine determines system priorities 
in dealing with the input and output devices. First priority is given to 
a real-time monitor (initiated by pulses from the system clock) which 
ensures rapid servicing of the experimental stations. Other devices on the 
interrupt are the teletype reader/punch and the high speed reader/punch. 
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Inputs from the subject do not interrupt OSCAR but are scanned as required 
by the user’s program. 

3) Teletype routines provide operator-computer communication at 
all times. 

4) Special input-output routines are provided for monitoring and 
control of experimental stations. 

5) Mass data dumping may be accomplished by preprogrammed OSCAR 

routines. 

6) OSCAR provides a set of subroutines for commonly needed functions. 
For example, a pseudorandom number generator, double precision arithmetic 
package and integer conversion routines are available for use by the user's 
subroutines. 

1.3 User-supplied Subroutines 

OSCAR requires four subroutines from the user which are called by 
the system during operation. These subroutines specify the particular paradigms, 
inputs, and outputs for classes of experiments and are described in detail 
in section 3. A brief description of each of the subroutines follows: 

1) GETVAR: GETs VARiables (experimental parameters) from the 

operator. 

2) START: initializes the experimental station and sets it up 
for the run by 

(a) clearing and priming the run buffer, wherein are 
stored the experimental prarmeters and data for the station. 

(b) turning on the output relays, which control the stimuli 
at the experimental station. 

(c) putting a 1 in the first location of the run buffer 
which tells OSCAR to run the buffer. 



3) RUN: is the principal and longest subroutine. It controls 
subject-environment interactions during the experiment proper 
and stores data. 
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4) OUTPUT: outputs data on command of the operator. 

1.4 Teletype Commands to the System 

The operator communicates with OSCAR through eleven numeric 
commands typed on the teletype: The operator types one of the following 
numbers on the teletype and OSCAR responds with the underlined message. 

The operator then types the number of the buffer to be manipulated followed 
by a period. If no period is given or an illegal buffer number is typed 


OSCAR ignores the command. 


Command 

Function 

0: 

initialize a station (executes GETVAR 

routine). 

1: 

start a station (executes START routine). 

2: 

stop a station. 

3: 

output data from a station (executes 

OUTPUT routine) 

4: 

not implemented (Mag tape dump in some 
versions). 

5: 

not implemented. (Calls library monitor 

in some versions). 

6: 

Produce ten inches of leader trailer on 
the high-speed punch. 

7: 

suppress teletype output, saving messages 
to the operator. 

8: 

examine station buffer. The operator 
types the buffer number followed by a 
period and then the buffer location he 
wants to look at. The contents of this 
location will be typed out by OSCAR. Both 
the location and its contents are in 
decimal. 












Command 


Function 
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9: examine core location. The operator 

types the octal core location he wants 
to look at and OSCAR responds with the 
octal contents of that location. The 
operator then has the option of modifying 
the contents of the location. If he enters 
an octal number followed by a period this 
new number will replace the old contents. 
Only a period will effect modification of 
the contents and typing a space will skip 
the modification option. 

is restart the system. 

1.5 OSCAR Core Allocation 

OSCAR occupies 14 (decimal) pages of core, leaving 17 pages of core 
for the user-supplied program, the station run buffers, and the high-speed 
punch dump buffer. Cote allocation is illustrated in Figure 1, which shows 
OSCAR occupying the lower nine pages and the upper five pages of core. The 
station run buffers, being above page zero, are said to reside in "upper core". 

1.6 Run Buffers and the Clock Service Routine 

Each station has associated with it a buffer storage area in upper 
core which contains experimental constants and variables for the particular 
station. On each clock pulse OSCAR transfers the first part of the buffer— 
the constants and variables to be used by the RUN subroutine—to page zero 
so that subroutines of the system can readily access it. 

The first part of each run buffer is called a "run table" and con¬ 
tains the station number, subject identification, and experimental parameters. 

Two locations on page zero specify the siy.e of the run table (TABSIZ is minus 
the number of locations in the run table) and the number of nonmodifiable 
constants (ABUMP specifies the number of locations which are not returned to 
the run buffer and are subsequently erased on page zero). The user must 
include values for these locations in his program. For example: 





Figure 1 


OSCAR CORE ALLOCATION 


Operating System 
000 - 2177 


User-supplied Subroutines 
2200 - XXXX 

Station Run Buffers 
XXXX+1 - YYYY 


Dump Buffer 
YYYY+1 - 6377 

System messages 6400 - 6577 

Double Precision Package 
6600 - 7577 

Loaders 7600 - 7777 
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LOCATION 

NAME 

CONTENTS 

0126 

TABSIZ, 

-5 /Length of run table. 

0127 

ABUMP, 

3 /Number of constants. 

0130 

RUNTAB, 

0 /These three constants. 

0131 

IDNO, 

0 /are required by OSCAR 

0132 

B0XN, 

0 / 

0133 

NSR, 

0 /Variables (or constants 
then 

0134 

FR, 

0 /variables) follow. 


With each clock pulse and for each station, OSCAR goes through the 
following "clock service" routine which is noninterruptable: 

1) Get the run table and bring it to page zero. 

2) Execute the user's RUN routine if the run flag is set. 

3) Return variables from run table to the upper core run buffer. 

4) Get the run table for the next station and repeat. 

In the upper core run buffer the first location is the station status 
word and indicates whether the station is to be run, stopped or ignored; and 
whether it has any messages to the operator. The station run flag in this 
location must be set by the user's START subroutine. 

2. OSCAR Subroutines for User Programming 

The following routines are addressed on page zero and may be accessed 
by an indirect jump to subroutine (JMS I XXXX) through these addresses. For 
example, a decimal-to-binary (DTB) conversion on a number may be affected by 
a JMS I 0107. More simply, A DTB instruction may be defined by DTB=JMS I 0107, 
reducing the complexity of coding in a user program. Such shorthand codes 
are usually included in the OSCAR address directory assembled with the user 
program. 

These subroutines are not reentrant. Since the user supplied sub¬ 
routines RUN and START may be executed as the result of a clock pulse which 
has interrupted GETVAR or OUTPUT, any routine called by GETVAR or OUTPUT 
can not be called by RUN or START, and vice-versa. The functions of the 
various system subroutines are such that the user should not be tempted to 
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violate this restriction. 

There are four main classes of routines available in OSCAR and they 
will be discussed in the following order: 

(1) Teletype character output 


(a) 

TYPET & TYPETS: character string type out 

(b) 

CRLF: carriage return and line feed 

(c) 

TAB: tabulate 


(2) Function routines 


(a) 

RN: random number generator 

(b) 

PACK: stores data in dump buffer 

(c) 

GETI: a combination of TYPETS and DTB 

(d) 

CLEAR: sets run buffer variables to zero 

(e) 

HSPARM: reads in ASCII-coded parameters from the 

high-speed reader 


(3) Instructions for OSCAR-station interactions 

(a) RELAY: output to station 

(b) READ: input from station 

(4) Arithmetic routines 


(a) 

DTB: decimal-to-binary conversion 

(b) 

BTD: binary-to-decimal conversion 

(c) 

Single precision arithmetic 

(i) SMULT: multiply 

(ii) DIVIDE: divide 

(iii) SQUARE: square 

(d) 

Double precision arithmetic 


2.1 Teletype Character Output Routines 
2.11 TYPET & TYPETS 

TYPET is a character string output routine which types out ASCII- 
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coded characters on the teletype. Characters are stored starting at a 

location whose address must follow the TYPET subroutine call as in: 

TYPE! /subroutine call 

MESSAD /address of message 

The characters are stored two to a core location in six-bit (stripped of the 
beginning "2" or "3") ASCII code. The end of the character string is desi¬ 
gnated by a "00". The message "HELLO" which is composed of the ASCII 
characters 310, 305, 314, 314 and 317 would thus be stored at MESSAD as 
follows: MESSAD, 1005; 1414; 1700. TYPET always types a carriage return 
and line feed before typing the character string. 

TYPETS is a subsection of the TYPET subroutine and does not require 
a message address when called. It uses an address established by the preceding 
TYPET or TYPETS call. In this manner the TYPET routine may be called to set 
the message address and succeeding TYPETS called to type out successive 
character strings. For example a "HELLO.... GOODBYE" sequence with intervening 
programming could be coded as follows: 


TYPET 

MESSAD 

TYPETS 

• 

TYPETS 

MESSAD, 0000 

1005;1414;1700 

0717;1704;0231 

0500 

2.12 CRLF 


/set the message address 

/type "HELLO" 

/intervening programming 
/type "GOODBYE" 

/a zero sets the TYPETS pointer to 
MESSAD 

/"HELLO" with 00 terminating the 
message 
/"GOODBYE" 


Calling CRLF will execute a carriage return and line feed on the tele¬ 


type. 

2.13 TAB 


Calling TAB causes the teletype to space over the number of times 


indicated in the location following the call as in 
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/the teletype will type 3 spaces 

2.2 Function Routines 

2.21 RN 

The RN routine returns with a pseudo-random positive octal fraction 
between 0000 and 3777 in the accumulator. 

2.22 GET1 

This subroutine is a combination of the TYPETS and DTB subroutines, 
typing out a message and then inputting a number from the teletype. Use of 
the GET1 code saves space for this frequently occurring sequence of subroutines. 

2.23 CLEAR 

CLEAR sets all nonconstant locations in the run buffer to zero. It 
is normally used in the START routine to initialize the buffer. 

2.24 PACK 

This subroutine may be called by the RUN routine to store data in the 
high-speed punch buffer for later dumping on tape. The subroutine call re¬ 
quires three locations as follows: 

PACK /subroutine call 

XXXX /address of data to be stored 

YYYY /number of words to be stored 

If XXXX were the location DATA and YYYY indicated that three data 

words were to be packed in the dump buffer, the call would be 


PACK 

DATA 

3 


DATA,0 

0 

0 


2.25 HSPARM 


/call 

/data address 
/3 words to be packed 
/intervening programming 
/data address 
/ 

/ 


This subroutine reads in ASCII—coded parameters from the high-speed 
reader. It is normally called by GETVAR when a program requires a long 
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variable sequence of parameters. These parameters are stored sequentially 
beyond the run table of the appropriate run buffer. The number of parameters 
to be read must be in the accumulator when the subroutine is called. A 
dollar sign on the parameter tape designates the end of the parameter list. 

An end of file (EOF) message is typed if the dollar sign is encountered 
before enough parameters have been read. 

2.3 Instructions for OSCAR Station Interactions 

2.31 RELAY 

This subroutine transfers the contents of the accumulator to the 
relay output buffer of an experimental station. How the image is transferred 
to different experimental stations will depend upon the particular system con¬ 
figuration. 

RELAY is called with the desired output image in the accumulator and 

returns with a cleared accumulator. A calling sequence would be: 

TAD STIM 
RELAY 

STIM, 4040 /simulus configuration 

2.32 READ 

Calling this subroutine transfers the contents of an input buffer 
from an experimental station to the accumulator. A standard subroutine re¬ 
turns with an image of the response inputs in the low order bits of the 
accumulator, although this will depend upon the particular system configuration. 

2.4 Arithmetic Routines 
2.41 DTB 

This decimal-to-binary conversion routine is called with a cleared 
accumulator and returns with the converted, binary number in the accumulator. 

The number is taken from the teletype and iiust be single precision (less than 
4096 in decimal). A space terminates the nput number and a slash — / — 
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will erase the full number if typed prior to the terminator. 

This subroutine is generally used to pick up parameters at the 
start of the experiment in the GETVAR routine. It may also be accessed in 
combination with TYPETS through a GET1 call. 

2.42 BTD 

The binary-to-decimal conversion routine is called with the number 
to be outputted in the accumulator. BTD converts this number to decimal and 
outputs it on the teletype in a four character, integer format. Leading 
zeros are suppressed and spaces are typed out instead. As BTD uses the double 
precision interpretive package, it can not be called from the RUN routine. 

Single Precision Arithmetic 

Because the RUN routine can not use the double precision interpretive 
package, OSCAR has three single precision arithmetic routines available. 

Two locations on page zero are used as registers for these single¬ 
precision subroutines. SMACL (Single-precision Multiply Accumulator, Low- 
order) is used for the low-order half of a number and SMACH for the high- 
order half. As this arithmetic is single-precision, SMACH is used only (1) 
for the result of a multiplication or square if the result exceeds 4095 
(decimal) (2) for the dividend in a DIVIDE call if the dividend is double¬ 
precision. 

2.43 SMULT 

This multiply routine is entered with the multiplier in the accumulator 
and the multiplicand in the location following the subroutine call. The sub¬ 
routine returns with the low-order part of the product in the accumulator and 
the high-order part in the page zero location SMACH. A typical calling 
sequence to multiply 1023 by 2 is: 
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TAD A 
SMULT 
0 


TAD B 


DCA .+3 


/Put the multiplicand after the call 

/ 

/Get the multiplier in the accumulator 
/Call the subroutine 
/Multiplicand is now here 


A, 1023 

B, 2 


2.44 DIVIDE 

To divide A by B this subroutine is entered with B in the accumulator 
and A in the page zero registers SMACL and SMACH. The subroutine returns with 
the quotient in the accumulator and the remainder in SMACH. A typical calling 

sequence is: 

TAD A 
DCA SMACL 

TAD A + 1 /If A is single precision, SMACH must 

DCA SMACH /be cleared anyway 

TAD B 

DIVIDE /quotient will be in the accumulator 


A, 1234 


5670 
B, 5231 


2.45 SQUARE 

This routine is entered with the to-be-squared number in the accumulator 
It returns with the double-precision square in SMACL and SMACH. The low-order 
part (SMACL) will be in the accumulator. A typical calling sequence to square 
A is: 

TAD A 

SQUARE /A squared will be in the accumulator and 

A, 1234 /any overflow in SMACH 


Double Precision Interpretive Package 


Arithmetic Routines 


The double-precision arithmetic routines are called by the user's 
GETVAR and OUTPUT subroutines to manipulate, store and type out parameters 
and data. 


The double-precision package uses locations 40, 41, 42 and 43 on page 
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zero as an arithmetic register. These locations are labeled DPAC1, DPAC2, 

DPAC3, and DPAC4 respectively as they constitute the Double Precision 
Accumulator for the package. The low order part of a number is always 
stored in DPAC1 and higher order parts are stored in the three successive 
locations. 

2.46 Special Instructions 

(a) The double-precision package is entered by calling ENTER (or 

JMS 17). All succeeding coding is interpreted by the double-precision inter¬ 
preter and must therefore consist only of the following double-precision 
instructions. Enter with a cleared accumulator. 

(b) Control returns to the main program when an EXIT (0000) instruction 
is encountered. 

2.47 Arithmetic Memory Reference Instructions 

(a) DPADD A 

The call DPADD A causes the contents of locations A and A + 1 to be added 
to DPAC1 and DPAC2. The result is in DPAC1 and DPAC2. 

(b) DPSUB A 

DPSUB A causes the contents of locations A and A + 1 to be subtracted 
from DPAC1 and DPAC2. The result is in DPAC1 and DPAC2. 

(c) DPMUY A 

The call DPMUY A multiplies the contents of locations A and A + 1 by 
the contents of DPAC1 and DPAC2. The four precision answer is left in DPAC1 
through DPAC4. 

(d) DPDIV A 

DPDIV is called with the divisor in DPAC1 and DPAC2. DPAC3 and DPAC4 
should first be cleared by a DPMUY X instruction, prior to the division call. 

A typical calling sequence to divide the contents of B and B+l by the contents 
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of A and A+l is: 

TAD B 
DCA DPAC1 
TAD B+l 
DCA DPAC2 
ENTER 

DPMUY ONE /Clear DPAC3 & DPAC4 

DPDIV A 
EXIT 
B, 1234 
5670 
A, 3210 
0012 
ONE, 1 
0 

The resulting quotient will be in DPAC1 and DPAC2 while the remainder will 
be in DPAC3 and DPAC4. 

Note: Indirect addressing may be used with these memory reference instructions. 
However, an auto-indexing register will not be incremented by the call. 

2.48 Operate Instructions 

(a) DPSNA 

This instruction performs a Skip on Nonzero Accumulator where the 
"accumulator" referred to is the double precision accumulator; DPAC1 and 
DPAC2. 


(b) SQROOT 

Calling this routine takes the square root of the contents of DPAC1 
and DPAC2 and leaves the result in DPAC1 and DPAC2. 

(c) DPNEG 

This instruction negates the contents of DPAC1 and DPAC2, leaving the 
result in DPAC1 and DPAC2. 

(d) DPNOP 

This is a double precision no operation and does nothing. 

(e) DPIF 


This instruction is followed by three addresses and performs an 
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arithmetic IF on the double precision accumulator DPAC1 and DPAC2. If the 
double precision accumulator is (1) negative, a jump to the first address 
is executed (2) zero, a jump to the second address or (3) greater than 
zero, a jump to the third address is executed. A typical calling sequence 
is: 


DP IF 
XXXX 
YYYY 
ZZZZ 


/where to go if DPAC1 & DPAC2 is negative 

/DPAC is zero; go to XXYY 

/DPAC is greater than zero; go to ZZZZ 


2.49 Input/Output and Data Transfer Instructions 


(a) DPOUT 


This instruction performs a binary-to-decimal conversion on the 
double-precision accumulator and types out the result in the integar format 
prescribed by the call. For example DPOUT 4 outputs the number with 4 decimal 
places. The maximum number of digits is 7. 

(b) DPGET A 

The call DPGET A transfers the contents of A to DPACl and the contents 
of A + 1 to DPAC2. The contents of A and A + 1 are unchanged. 

(c) DPPUT A 

The call DPPUT A transfers the contents of DPACl and DPAC2 to locations 
A and A + 1. The contents of DPACl and DPAC2 are unchanged. 

3. Writing the User-Supplied Subroutines 

3.1 OSCAR Address Directory and Page Zero Constants 

The user's source program (the symbolic listing in PAL-III code) is 
prefaced by a directory of the addresses of referenced OSCAR subroutines and 
registers. This is a standard listing which may be appended to all 
system programs. Using this directory the programmer need simply 
code a "TYPET" call when he wants a character string typed out and the assembler 
will translate this into a machine-language JMS I TYPE on the binary tape. 









15 


Another advantage of this directory, beyond parsimony in coding, is that 
changes in OSCAR require only a reassembling of the user's program with 
the new address directory and not a rewriting of the program. 

The programmer must also supply page zero addresses for those locations 
of the run buffer which are to be referenced by the RUN routine. These locations 
constitute the run table. Two addresses, IDENT and BOX, are already provided 
by OSCAR and the user appends those constants and variables which are to be 
moved from the upper core run buffer to page zero during servicing of the 
RUN routine. Constants are listed first and followed by variables. The dis¬ 
tinction in function between constants and variables is determined by the fact 
that only "variables" will be returned from page zero to the run buffer after 
use by the RUN routine. "Constants" therefore remain unmodified in the run 
buffer. How many parameters are moved from the run buffer to page zero and 
which parameters are treated as constants is determined by two locations on 
page zero. The location TABSIZ contains the two's complement of the number 
of locations in the run table and determines how many parameters are moved 
from upper core to page zero. The location ABUMP contains the number of 
constants in the run table (including RUNTAB, IDENT, and BOX) and determines 
those parameters which will not be modified by the RUN routine. Constants 
must be listed first, followed by variables. 

One variable frequently included in the run table is a location the 
contents of which points to the end of the run table in upper core. This 
pointer may then be used by the RUN routine to store data in the remaining 
locations of the run buffer. 

3.2 GETVAR 

The GETVAR subroutine is used to obtain experimental parameters from 
the operator. These should be restricted to parameters which vary among 
the treatments and could not be handled by program modifications at intervals 
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of weeks or months. Otherwise, the teletype paper expenditure becomes pro¬ 
hibitive and much operator time is wasted. Other parameters may be stored 
in the program and modified through use of the "9" command if and when 
necessary. 

OSCAR requests four parameters in response to the operator's 0 
(initialize) command: 

INITIALIZE BUFFER //_ 

IDNO _ 

BOXN _ 

DUMP?_ 

The buffer number may be any number from 1 to the maximum number of 
buffers set up at system initialization. If the buffer is currently being 
run, OSCAR will mention this fact and ignore the command. Although the 

buffer number need not correspond to the station (or box) number - BOXN — 

it is usually less confusing to maintain this correspondence. The IDNO is 
an identification number for the subject to be run at this station. The 
station number is given in response to BOXN. The reply to DUMP? is if 
you desire a mass data dump as specified by your RUN routine or 0^ if you 
do not. This information tells OSCAR whether or not to accept data for 
dumping. The dumping routine itself (PACK) must be called by the user in 
his RUN subroutine as described below. 

After OSCAR executes this dialog it jumps to the user's GETVAR sub¬ 
routine. Included in this subroutine will be text strings requesting 
frequently changed parameters from the operator. This may be easily accom¬ 
plished by calling: 

TYPET 

GMES 

which will set the TYPET routine to the address of GETVAR messages GMES. 

Now to output text and input parameters on the teletype one calls 
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GET1 

which executes TYPETS and DTB, leaving the parameter in the accumulator. 
These parameters may then be stored in the run table by 
DCA I AUT7 

where AUT7 (autoindex register 7, location 17 on page zero) has been set 
to point to the location after BOX in the upper core run table. OSCAR 
takes care of this address setting of AUT7. A complete GETVAR routine to 
pick up two parameters from the operator could be as simple as: 



GETVAR, 

HLT 

TYPET 

GMES 

TAD M2 

DCA CTR 



GLOOP, 

GET1 

DCA I AUT7 

ISZ CTR 

JMP GLOOP 

JMP I GETVAR 


M2, 


-2 


CTR, 


0 


GMES, 


0 

4322; 0511; 1606 

/"//REINF." 



7240; 0000 

2201; 2411; 1740 

2311; 3205; 7240 

0000 

/"RATIO SIZE' 


the appropriate run table would be 


TABSIZ, 

-7 


ABUMP, 

5 


RUNTAB, 

0 


IDENT, 

0 


BOX, 

0 


NSR, 

0 

/CONSTANTS 

RATIO, 

0 

/ 

VAR1, 

0 

/VARIABLES 

VAR2, 

0 

/ 


The GETVAR routine may be (and often is) more complicated than the 
above example. Complications usually involved manipulations of the para¬ 
meters prior to storage in the run table. A more elaborate GETVAR routine 
is provided by the sample program GDT in the appendix. 
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3.3 START 


After the buffer has been initialized, a "1" command will start 
the indicated buffer by calling the user's START subroutine. START should 

(a) clear the run buffer variables. 

(b) initialize all variables in the run table. 

(c) start the session by loading the appropriate stimulus configuration 
in the station output buffer. 

(d) set the run flag to one in the first location of the run buffer 
(RUNTAB). 

The following coding s an example of a complete START subroutine 
which would accomplish these four goals: 



START, 

HLT 


(a) 


CLEAR 

/CLEAR BUFFER 



TAD NSR 

CIA 

/SET REINFORCEMENT COUNTER 

(b) 


DCA VAR1 

TAD RATIO 

CIA 

DCA VAR2 

/SET FIXED RATIO COUNTER 

(c) 


TAD STIM 

RELAY 

/SET RELAYS 

(d) 

STIM, 

IAC 

DCA I RUNTAB 

JMP I START 

2024 

/SET RUN FLAG 


The START routine in the appendix exemplifies a more complex example 
of this routine. 

3.4 RUN 


While the GETVAR, START, aid OUTPl T subroutines are initiated by 
the operator through teletype commands, the RUN subroutine is called by 
OSCAR on every pulse from the system clock. If the run flag of a buffer 
is set to 1, OSCAR executes the RUN routine. 

RUN controls all subject-environmi it interactions during the experi¬ 
ment. The user must provide for the following functions in his RUN sub- 
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routine. 

(a) RUN must determine the current status of a station. OSCAR 
must know whether the station is currently in the middle of a trial, in 
a time out, whether reinforcement is being delivered, etc. 

(b) depending upon what is happening at the station, RUN may then 
increment timers, modify stimuli, or check on the subject’s responding. 

(c) monitoring of the subject's responding then involves incre¬ 
menting counters, checking timers, changing stimuli and taking other 
appropriate actions depending upon the contingencies. 

(d) Data storage programming must be provided. At the end of a 
trial summed session data and/or trial data may be put away in the run buffer 
for later analysis by the OUTPUT subroutine. 

(e) Mass data dumping may be required (see below). 

(f) The RUN subroutine must stop the station by depositing 3 in RUNTAB. 

If dumping of data on the high-speed paper-tape punch is desired, 

the subroutine PACK is used. As described previously (section 2.24) this 
subroutine call includes specification of the address of the data to be 
dumped and the number of data words to be dumped. The standard format punched 
on the tape is a record mark in the eighth channel of the first frame followed 
by successive data words split in half, six bits per tape frame. The low 
order half of the data word is punched first. Channel seven is always 
punched in all frames. OSCAR must be told to dump by replying with a "1" 
to the DUMP? question at station initialization or the PACK routine will be 
ineffective. 

A complete RUN routine for the GDT program is presented in the appendix. 
3.5 OUTPUT 


The user's OUTPUT subroutine is accessed by OSCAR when the operator 
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types a "3" on the teletype and gives the desired buffer number. OUTPUT'S 
functions may include 

(a) typing out trial-by-trial statistics if such data were stored 
during the run. 

(b) performing arithmetic operations on stored data and typing out 
summary session statistics. 

As in the GETVAR routine text formatting is accomplished by the TYPET 

and TYPETS subroutines: 

TYPET 

OMES 

where OMES is the first location of the data output text. The location ADRPNT 
on page zero is useful here as it points to the run table in upper core. By 
putting this address into an autoindexing register (AUT6) one may easily access 
the data stored in the upper core run buffer. A sample OUTPUT routine for 
the GDT program is provided in the appendix. 





APPENDIX 


A Sample User's Program: 
GDI 

a General Discrete Trials 
program for behavioral research 
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A2 

The GDT program will run a variety of procedures requiring response- 
contingent and/or time-contingent changes of stimuli (e.g., FR, VR, FT, VI). 

Six parameters are specified for each trial and these parameters are either 
read in on the high-speed reader during buffer initialization or are taken 
from the run buffer if they were previously stored there. The operator specifies 
the number of trials, the intertrial-interval stimulus (in decimal), the "hopper 
mode" (0 if fixed time, 1 if head-in-hopper time is used), whether or not the 
overwrite option is used (described below) and whether new trial parameters are 
to be read in (1 if yes, 0 if using the previous parameters). 

The six trial parameters are 

1 2 3 4 5 6 

Trial time limit, stimulus, magazine time, number of responses, time interval, ITI 

duration 

1. The trial will be terminated, with reinforcement if such is 
specified by parameter #3, if the response and/or time criteria 
are not met by this time. 

2. The trial stimulus depends upon the system configuration. It 
is the decimal equivalent of the buffer image to be output to the 
station. 

3. Magazine time is the number of clock pulses during which the 
magazine will be energized. 

4. The number of responses specifies the response criterion as in 
a FR or VR schedule. 

5. The time interval (as in a VI or FI schedule) is specified in 
seconds. 

6. This parameter specifies the duration of the intertrial interval 
in seconds. A zero indicates free operant. 

Three other parameters may be specified for all stations during any 
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one run: 

1. DROM determines what responses, if any, will reset the ITI if 
they occur during the ITI. 

2. RMASK determines what responses will be looked at during the 
trial. GDT only runs single-response schedules. 

3. REIN is the output buffer image for reinforcement. 

The summary session statistics typed on the teletype in response 
to the "3" command are: 

1. subject number 

2. number of on-trial responses 

3. session time 

4. number of off-trial responses 

There are two independent options available for mass data dumping: 

1. If the operator replies "1" to the DUMP? interrogation during 
buffer initialization, the following data will be punched on the 
high-speed punch for each subject for each trial: 

a. subject number. 

b. stimulus and reinforcement/nonreinforcement. 

c. number of responses. 

d. time from start of trial to first response, double 

e. precision 

f. time from first response to end of trial, double 

g. precision. 

2. If the operator replies "1" to OVERWRITE during buffer initiali¬ 
zation, the above trial-by-trial data will be stored over the trial 
parameters in the run buffer. This data can later be recorded on 
magnetic tape in some OSCAR configurations. 





001 

/ OSCAR ADDRESS 

002 

D0=JMS I 0 

003 

TVPET=DO 101 

004 

TVPETS=DO 102 

005 

CRLF=I>0 105 

006 

TfiB=DO 106 

007 

DTB=D0 107 

008 

BTD=DO 111 

009 

SMULT=DO 112 

010 

01VIDE=D0 113 

011 

S0UflRE=00 114 

012 

RELfiV=0O 115 

013: 

REfl0=0O 116 

014 

RN=DO 117 

015 

GET1=0O 120 

016 

CLEftR=0O 121 

017 

PftCK=0C» 122 

018 

HSPflRM=DO 123 

019 


020 

fiUT0=10 

021 

flUTl=ll 

022 

flUT2=12 

023 

flUT3=13 

024 

RUT4=14 

025 

fiUT5=15 

026 

ftUT6=16 

027 

fiUT7=17 

028 


029 

R0RPNT = 77 

030 

SMftCL=75 

031 

SMflCH=76 

032 

C0NV=65 

023 


024 

ENTER=00 7 

035 

DPIF=1 

036 

0PSNfl=2 

037 

0POUT=100 

038 

0PNEG=4 

039 

SQR0OT=3 

€140 

0PftCl=40 

€141 

0PfiC2=41 

042 

0PflC3=42 

043 

0PFIC4=43 

044 


045 

0GET=371 

046 

ORUN=1510 

047 

O0flT=1710 

048 

0TftB=126 

049 

OBEG=2400 

050 


051 

ftCL=7701 

052 

C:flM = 7621 

053 

BSW=7002 



cn in in 


SWP=?521 

MQA=?501 

MQL=?421 


4 

5 

6 
85? 
058 


PAUSE 





001 



/GDT ??0 

002 



*ORUN 


00 :< 

1510 

2600 


RUN 

004 

1511 

2471 


START 

005 



+OGET 


0B6 

0S?1 

2400 


GETVAR 

00/ 

0572 

5065 


OUTPUT 

008 



*OTAB 


009 

0126 

??41 

TABSIZ, 

-2? 

010 

012? 

000? 

ABUMP, 

7 

011 

0150 

0000 

RUNTAB, 

0 

012 

0151 

0000 

I DENT, 

0 

012 

0152 

0000 

BOX, 

0 

014 

8155 

0000 

TRIAL, 

0 

815 

0154 

0000 

ISTIM, 

0 

016 

0155 

0000 

PCH, 

0 

617 

0156 

0000 

OVERW, 

0 

018 

015? 

0000 

SESSR, 

0 

019 

0140 

0000 


0 

820 

0141 

0000 

SESST, 

0 

821 

0142 

0000 


0 

022 

0145 

0000 

ITR, 

0 

025 

0144 

0000 


0 

024 

0145 

0000 

TLIM, 

0 

825 

0146 

0000 

STIM, 

0 

826 

014? 

0000 

REINF, 

0 

02? 

0150 

0000 

RNES, 

0 

028 

0151 

0000 

TNES, 

0 

029 

0152 

0000 

ITI, 

0 

050 

6155 

0000 

RCNT, 

0 

051 

8154 

0000 

STR, 

0 

852 

0155 

0000 


0 

055 

0156 

0000 

RTIM, 

0 

854 

815? 

0000 


0 

055 

0160 

0000 

RESP, 

0 

856 

0161 

0000 

SDIV, 

0 

05 ? 

0162 

0000 

SFL6, 

0 

058 

0165 

0000 

TFL6, 

0 

059 

0164 

0000 

IFLG, 

0 

040 

0165 

0000 

HFLG, 

0 

041 

0166 

0000 

DATAP, 

0 

042 





045 



*ODAT 


044 

1710 

5160 


END 

845 





846 



*OBEG 


94? 

2400 

7402 

GETVAR, 

HLT 

048 

2401 

4501 


TVPET 

049 

2402 

2454 


GMES 

050 

2405 

4520 


GET1 

051 

2404 

5251 


DCA 

052 

2405 

1251 


TAD 

055 

2406 

541? 


DCA I 


/# TRIALS 
/ITISTIM 

/PHOTO CONTROL OF HOP TIME 
/DATA OVERWRITES TRIAL VALUES 


/INTERTRIAL RESPONSES 

/TIME LIMIT (SEC> 

/TRIAL VALUES: 

/HOP TIME <. 02 SEC) 
/RESP REQUIREMENT 
/TIME REQUIREMENT <SEC> 
/1TI < SEC9 
/RESP CNT 
/START TIME 

/RUN TIME 

/CONTROL FLAGS: 

/FREQ DIVIDER 
/SECOND FLAG 
/TRIAL COUNTER 
/ITI FLAG 
/HOPPER FLAG 
/TRIAL POINTER 


/ASK TRIALS 

TEM1 

TEM1 

AUT? 
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054 

240? 

4520 


GET1 

055 

2410 

341? 


DCA I 

056 

2411 

4520 


GET1 

05? 

2412 

341? 


DCA I 

05 8 

2413 

4520 


GET1 

059 

2414 

341? 


DCA I 

060 

2415 

4520 


GET1 

061 

2416 

7650 


SNA CLA 

062 

241? 

5600 


JMP I 

063 

2420 

1231 


TAD 

064 

2421 

3040 


DCA 

065 

2422 

3041 


DCA 

066 

2423 

440? 


ENTER 

06? 

2424 

3232 


DPMUV 

068 

2425 

0000 


EXIT 

069 

2426 

1040 


TAD 

0?0 

242? 

4523 


HSPARM 

0?1 

2430 

5600 


JMP I 

0?2 

2431 

0000 

TEM1, 

0 

0?3 

2432 

0006 

D6, 

6 

0? 4 

2433 

0000 


0 

0?5 

2434 

0000 

GMES, 

0 

0?6 

2435 

2422 


2422 

0?? 

2436 

1101 


1101 

0?8 

243? 

1423 


1423 

079 

2440 

7248 


7240 

080 

2441 

4000 


4000 

081 

2442 

1124 


1124 

082 

2443 

1140 


1140 

083 

2444 

2324 


2324 

084 

2445 

1115 


1115 

085 

2446 

7200 


7200 

086 

244? 

101? 


1017 

087 

2450 

2040 


2040 

088 

2451 

151? 


151? 

089 

2452 

0405 


0405 

090 

2453 

7200 


7200 

091 

2454 

1726 


1726 

092 

2455 

0522 


0522 

093 

2456 

2722 


2722 

894 

245? 

1124 


1124 

095 

2468 

057? 


057? 

096 

2461 

4000 


4000 

09? 

2462 

2001 


2001 

098 

2463 

2201 


2201 

099 

2464 

1505 


1505 

100 

2465 

2405 


2405 

101 

2466 

2223 


2223 

102 

246? 

??40 


7740 

183 

2470 

0000 


0000 

104 





105 

2471 

7402 

START, 

HLT 

106 

2472 

7240 


STA 

1.0? 

2473 

1320 


TAD 



/ASK 

ITI STIM 

RUT? 

/ASK 

REINF CONTROL MODE 

RUT? 

/ASK 

IF OVERWRITE 

RUT? 

/ASK 

IF NEW TRIAL VALUE 

GETVAR 

/NO 


TEM1 

/VES 


DPAC1 

DPAC2 

" 


D6 



DPAC1 



GETVAR 




/'TRIALS 


/ITISTIM 


/HOP MODE <l=PHOTO CONTROL) 


/OVERWRITE? 


/PARAMETERS? 


/CLEAR VARIABLE 




108 

24?4 

112? 


TAD 

ABUMP 


109 

2475 

5010 


DCA 

ALIT0 


110 

2476 

1126 


TAD 

TABSIZ 


111 

24?? 

112? 


TAD 

ABUMP 


112 

2500 

551? 


DCfl 

TEM2 


115 

2501 

5410 


DCA I 

AUT0 


114 

2502 

251? 


ISZ 

TEM2 


115 

2505 

5501 


JMP 

. -2 


116 

2504 

1126 


TAD 

TABSIZ 

/SET TRIAL POINTER 

11? 

2505 

7041 


CIA 



116 

2506 

1150 


TAD 

RUNTAB 


119 

250? 

5166 


DCA 

DATAP 


120 

2510 

1155 


TAD 

TRIAL 

/SET TRIAL CNT 

121 

2511 

7041 


CIA 



122 

2512 

5165 


DCA 

TFL6 


125 

2515 

4521 


JUS 

NEW 

/START NEW TRIAL 

124 

2514 

7001 


I AC 


/SET RUN FLAG 

125 

2515 

5550 


DCA I 

RUNTAB 


126 

2516 

5671 


JMP I 

START 


12? 

251? 

0000 

TEM2, 

0 



128 

2520 

0150 

STAB, 

RUNTAB 



129 







150 

2521 

7402 

NEW, 

HLT 



151 

2522 

7240 


STA 


/GET TRIAL VALUES 

152 

2525 

1166 


TAD 

DATAP 


155 

2524 

5010 


DCA 

AUT 0 


154 

2525 

1560 


TAD 

M6 


155 

2526 

551? 


DCA 

TEM2 


156 

252? 

7240 


STA 



15? 

2550 

155? 


TAD 

TLIMS 


158 

2551 

5011 


DCA 

AUT1 


159 

2552 

1410 


TAD I 

AUT0 


140 

2555 

5411 


DCA I 

AUT1 


? 41 

2554 

2517 


ISZ 

TEM2 


142 

2555 

5552 


JMP 

. -5 


145 

2556 

1560 


TAD 

M6 

/CLEAR TRIAL DATA 

144 

255? 

5517 


DCA 

TEM2 


145 

2540 

5411 


DCA I 

AUT1 


146 

2541 

251? 


ISZ 

TEM2 


14? 

2542 

5540 


JMP 

. -2 


148 

2545 

1561 


TAD 

M62 . 

/SET FREQ DIVIDER 

149 

2544 

5161 


DCA 

SDIV 


150 

2545 

1145 


TAD 

TLIM 

/SET TIME LIMIT 

151 

2546 

7041 


CIA 

* 


152 

254? 

5145 


DCA 

TLIM 


155 

2550 

1146 


TAD 

STIM 

/LOAD RELAVS 

154 

2551 

4515 


RELAV 



155 

2552 

1560 


TAD 

M6 

/UPDATE TRIAL POINTE 

156 

2555 

7041 


CIA 



15? 

2554 

1166 


TAD 

DATAP 


158 

2555 

5166 


DCA 

DATAP 


159 

2556 

5721 


JMP I 

NEW 


160 

255? 

0145 

TLIMS, 

TLIM 



161 

2560 

???2 

M6, 

-6 






29 


A9 

162 2561 7716 M62, -62 

162 
164 
001 
002 

002 +O8E6+200 


004 

2600 

?402 

RUN/ 

HLT 



005 

2601 

2162 


DCA 

SFLG 

/FREQUENCV DIVIDE 

006 

2602 

2161 


IS2 

SDIV 

/SEC? 

00? 

2602 

5207 


JMP 

. +4 

/NO 

008 

2604 

2162 


ISZ 

SFLG 

/VES/ SET FLAG 

009 

2605 

1256 


TAD 

N62 

/RESET DIVIDER 

010 

2606 

2161 


DCA 

SDI V 


011 

260? 

1165 


TAD 

HFLG 

/HOPPER? 

012 

2610 

7650 


SNA CLA 



012 

2611 

5226 


JMP 

CITI 

/NO, CHECK FOR ITI 

014 

2612 

1125 


TAD 

PCH 

/VES, PHOTO CONTROL? 

015 

2612 

7650 


SNA CLA 



016 

2614 

5222 


JMP 

. +6 

/NO 

01? 

2615 

4516 


READ 


/VES, READ PHOTO CELL 

018 

2616 

7112 


CLL RTR 



019 

261? 

7012 


RTR 



020 

2620 

7620 


SNL CLA 



021 

2621 

5680 


JMP I 

RUN 


022 

2622 

2165 


ISZ 

HFLG 

/HOP DONE? 

022 

2622 

5600 


JMP I 

RUN 

/NO 

024 

2624 

1152 

ITI GO/ 

TAD 

ITI 

/VES, ITI REQUEST? 

025 

2625 

7450 


SNA 



026 

2626 

5261 


JMP 

NEWT 

/NO, NEW TRIAL 

02? 

262? 

7041 


CIA 


/VES, START ITI 

028 

2620 

2164 


DCA 

IFLG 


029 

2621 

1256 


TAD 

N62 

/SVNC DIVIDER 

020 

2622 

2161 


DCA 

SDI V 


£121 

2622 

1124 


TAD 

ISTIM 

/LOAD ITI STIM 

022 

2624 

4515 


RELAV 



022 

2625 

5600 


JMP I 

RUN 


024 

2626 

1164 

CITI, 

TAD 

IFLG 

/ITI IN PROGRESS? 

025 

262? 

7650 


SNA CLA 



026 

2640 

5271 


JMP 

RC'HK 

/NO, RUN TRIAL 

02? 

2641 

4516 


READ 


/RESP? 

028 

2642 

0262 


AND 

DROM 

/SET FOR LEFT KEV OR LEVER 

029 

2642 

7650 


SNA CLA 



040 

2644 

5254 


JMP 

. +10 

/NO 

041 

2645 

1152 


TAD 

ITI 

/VES, RESET ITI 

042 

2646 

7041 


CIA 



042 

264? 

2164 


DCA 

IFLG 


044 

2650 

2142 


ISZ 

ITR 


045 

2651 

7410 


SKP 



046 

2652 

2144 


ISZ 

ITR+1 


04? 

2652 

5600 


JMP I 

RUN 


048 

2654 

1162 


TAD 

SFLG 

/SEC? 

049 

2655 

7650 


SNA CLA 



050 

2656 

5600 


JMP I 

RUN 

/NO 

051 

265? 

2164 


ISZ 

IFLG 

/VES, ITI OVER? 





30 


A10 


852 

2668 

5600 


JNP I 

855 

2661 

4760 

NEWT, 

JNS I 

854 

2662 

2163 


IS2 

855 

2665 

5267 


JNP 

656 

2664 

135? 


TAD 

85? 

2665 

3530 


DC A I 

858 

2666 

5600 


JNP I 

859 

2667 

4761 


JNS I 

060 

2670 

5680 


JNP I 

061 

2671 

2141 

RCHK, 

ISZ 

862 

2672 

7410 


SKP 

865 

2675 

2142 


ISZ 

864 

2674 

1153 


TAD 

865 

2675 

7640 


SZA CLA 

866 

2676 

5303 


JNP 

06? 

267? 

2154 


ISZ 

868 

2700 

7410 


SKP 

869 

2701 

2155 


ISZ 

0?0 

2702 

5306 


JNP 

071 

2785 

2156 


ISZ 

8?2 

2704 

7410 


SKP 

8?5 

2705 

215? 


ISZ 

8?4 

2706 

1162 


TAD 

0?5 

270? 

7650 


SNA CLA 

076 

2710 

5314 


JNP 

077 

2711 

2145 


ISZ 

078 

2712 

7410 


SKP 

87 9 

2715 

5346 


JNP 

880 

2714 

4516 

SRESP, 

READ 

081 

2715 

0364 


AND 

882 

2716 

4762 


JNS I 

885 

271? 

7750 


SPA SNA 

884 

2720 

5600 


JNP I 

085 

2721 

2153 


ISZ 

886 

27 22 

1150 


TAD 

08? 

2725 

7041 


CIA 

888 

2724 

1153 


TAD 

889 

2725 

7710 


SPA CLA 

098 

2726 

5600 


JNP I 

891 

272 ? 

7100 


CLL 

892 

2750 

1154 


TAD 

895 

2751 

1156 


TAD 

894 

2752 

3075 


DC A 

895 

2755 

7204 


GLK 

096 

2? 54 

1155 


TAD 

89? 

2755 

115? 


TAD 

098 

2756 

3876 


DC A 

899 

275? 

1356 


TAD 

180 

2740 

7041 


CIA 

101 

2741 

4513 


DIVIDE 

102 

2742 

7841 


CIA 

105 

2745 

1151 


TAD 

104 

2744 

7740 


SNA SZA 

105 

2745 

5600 


JNP I 


RUN /NO 

DNPS /DUMP TRIAL DATA 

TFL6 /ALL TRIALS? 

. +4 /NO 

C3 /VES, ENO RUN 

RUNTAB 

RUN 

NEWS /START NEW TRIAL 

RUN 

SESST /INC SESS TINE 


SESST+1 

RCNT /INC TRIAL TINE 

. +5 

STR /LATENCV 

STR+1 
. +4 

RTIN /RUN TINE 

RTIN+1 

SFLG /SECOND? 

SRESP /NO 

TLIN /VES, TINE LINIT? 

/NO 

HOP /VES, END TRIAL 

RNASK 

OFFS /GET RESP OFFSETS 

CLA /RESP? 

RUN /NO 

RCNT /VES, ENOUGH RESPONSES? 

RNES 

RCNT 

RUN /NO 

/VES, ENOUGH TINE 

STR 

RTIN 

SNACL 

STR+1 

RTIM+1 

SNACH 

N62 


TNES 

CLA 

RUN /NO 





106 

2746 

1147 

HOP, 

TAB 

REINF 

/VES, REINF 


10? 

2?4? 

7450 


SNA 




108 

2750 

5224 


JMP 

ITIGO 



109 

2751 

7041 


CIA 




110 

2752 

2165 


OCA 

HFLG 



111 

2752 

1265 


TAD 

REIN 



112 

2754 

4515 


RELAV 




n:< 

2755 

5600 


JMP I 

RUN 



114 

2756 

7716 

N62, 

-62 




115 

275? 

0002 

C2, 

2 




116 

2760 

201? 

DMPS, 

DMP 




11? 

2761 

2521 

NEWS, 

NEW 




118 

2762 

2000 

OFFS, 

OFF 




119 



/FOLLOWING CONSTANTS ARE CHAMBER SPECIFIC 


120 

2762 

000? 

DROM, 

7 


/RESP CODE DURING 

ITI 

.121 

2764 

000? 

RMASK, 

7 


/RESP CODE DURING 

TRIAL 

122 

2765 

0002 

REIN, 

2 


/REINF CODE 


122 








001 








002 



♦OBEG+400 




002 

2000 

7402 

OFF, 

HLT 




004 

2001 

2216 


DCA 

TEM2 



005 

2002 

1160 


TAD 

RESP 

/EXCLUSIVE OR 


006 

2002 

0216 


AND 

TEM2 



00? 

2004 

7041 


CIA 




008 

2005 

7104 


CLL 

RAL 



009 

2006 

1160 


TAD 

RESP 



010 

200? 

1216 


TAD 

TEM2 



011 

2010 

0160 


AND 

RESP 

/AND WITH OLD IMAGE 

012 

2011 

7421 


MOL 

- 



012 

2012 

1216 


TAD 

TEM2 



014 

2012 

2160 


DCA 

RESP 



015 

2014 

7501 


MQA 




016 

2015 

5600 


JMP I 

OFF 



01? 

2016 

0000 

TEM2, 

0 




018 








019 

2017 

7402 

DMP, 

HLT 


/SUMP TRIAL DATA 


020 

2020 

1121 


TAD 

I DENT 



021 

2021 

2145 


DCA 

TLIM 



022 

2022 

4522 


PACK 




022 

2022 

0145 


TLIM 




024 

2024 

0012 


12 




025 

2025 

1126 


TAD 

OVERW 

/OVERWRITE? 


026 

2826 

7650 


SNA CLA 




02? 

202? 

5250 


JMP 

RET 

/NO 


028 

2020 

1261 


TAD 

N? 



029 

2021 

1166 


TAD 

DATAP 

- 


020 

2022 

2010 


DCA 

AUT0 



021 

2022 

114? 


TAD 

REINF 



022 

2024 

7640 


SZA CLA 


• 


022 

2025 

7001 


I AC 




024 

2026 

1146 


TAD 

STIM 



925 

202? 

2410 


DCA I 

AUT0 



026 

2046 

1262 


TAD 

RCNTS 







B37 

3041 

3011 


DCR 

036 

3042 

1260 


TRD 

039 

3043 

3216 


DCR 

040 

3044 

1411 


TRD I 

041 

3045 

3410 


DCR I 

04 2 

3046 

2216 


ISZ 

043 

304? 

5244 


JNP 

044 

3050 

7100 

RET, 

CLL 

045 

3051 

1153 


TRD 

046 

3052 

113? 


TRD 

04? 

3053 

3137 


DCR 

048 

3054 

7204 


GLK 

049 

3055 

1140 


TRD 

050 

3056 

3140 


DCR 

051 

305? 

5617 


JMP I 

052 

3060 

7773 

N5, 

-5 

053 

3061 

777 1 

N7, 

-7 

054 

3062 

0152 

RCNTS, 

RCNT-1 

055 

056 

3063 

7402 

OUTPUT, 

HL.T 

05? 

3064 

107? 


TRD 

058 

3065 

3016 


DCR 

059 

3066 

4501 


TVPET 

060 

306? 

3116 


ONES 

061 

3070 

4502 


TVPETS 

062 

3071 

1416 


TRD I 

063 

3072 

4511 


BTD 

064 

3073 

7240 


STfl 

065 

3074 

107? 


TRD 

066 

3075 

112? 


TRD 

06? 

3076 

3016 


DCR 

068 

307? 

1315 


TRD 

069 

3100 

3314 


DCR 

0?0 

3101 

4502 

LOOP, 

TVPETS 

071 

3102 

1416 


TRD I 

0?2 

3103 

3040 


DCR 

073 

3104 

1416 


TRD I 

074 

3105 

3041 


DCR 

07 5 

3106 

440? 


ENTER 

0?6 

310? 

010? 


010? 

077 

3110 

0000 


EXIT 

07 8 

3111 

2314 


ISZ 

0?9 

3112 

5301 


JMP 

080 

3113 

5663 


JMP I 

081 

3114 

0000 

TEM4, 

0 

082 

3115 

7775 

N3, 

-3 

083 

084 

3116 

0000 

ONES, 

0 

085 

311? 

2325 


2325 

086 

3120 

0212 


0212 

08? 

3121 

4000 


4000 

088 

3122 

1716 


1716 

089 

3123 

4024 


4024 

090 

3124 

2211 


2211 


RUT1 

N5 

TEM3 
RUT1 
RUT0 
TEM3 
. -3 

/UPDATE RESP COUNT 

RCNT 

SESSR 

SESSR 

SESSR+1 

SESSR+1 

DMP 


RDRPNT 

RUT6 


/IDENT 

RUT6 


PDRPNT 

RBUMP 

RUT6 

N3 

TEM4 

RUT6 
DPRC1 
RUT 6 
DF'RC‘2 


TEM4 

LOOP 

OUTPUT 


/SUBJ 


/ON TRIRL RESPONSES 




091 

5125 

0114 

0114 

692 

5126 

4022 

4022 

095 

512? 

0525 

0525 

094 

5150 

201? 

201? 

095 

5151 

1625 

1625 

096 

5152 

0525 

0525 

09? 

5155 

4000 

4000 

098 

5154 

2505 

2505 

099 

5155 

2525 

2525 

1.00 

5156 

111? 

111? 

101 

515? 

1640 

1640 

102 

5140 

2411 

2411 

105 

5141 

1505 

1505 

104 

5142 

4050 

4050 

105 

5145 

5660 

5660 

106 

5144 

6251 

6251 

10? 

5145 

4000 

4000 

108 

5146 

1706 

1706 

109 

514? 

0640 

0640 

110 

5150 

2422 

2422 

111 

5151 

1101 

1101 

112 

5152 

1440 

1440 

115 

5155 

2205 

2205 

114 

5154 

2520 

2520 

115 

5155 

1716 

1716 

116 

5156 

2505 

2505 

11? 

515? 

2580 

2500 

118 

5160 

0000 END/ 

0 


/SESSION TIME<. 02) 


/OFF TRIFIL RESPONSE 


HBUMP 012? 
ftCL ??01 
ftORPNT 0077 
RUT0 0010 
fiUTl 0011 
RUT2 0012 
0UT5 0015 
OUT 4 0014 
ftUT5 0015 
fiUTG 001G 
OUT? 001? 
BOX 0152 
BSW 7002 
BTD 4511 
COM 7621 
ClTI 2656 
Cl FOR 4521 
CONV 0065 
CRLF 4505 
C5 2?5? 
DflTOP 0166 
DIVIDE 4515 
DMP 501? 
DMPS 2760 
DO 4400 
DPOC1 0040 




A14 


DPRC2 

0041 

DPRC3 

0042 

DPRC4 

0043 

DP IF 

0001 

DPNEG 

0004 

DP OUT 

0100 

DF'SNR 

0002 

DRUM 

2763 

DTE: 

450? 

D6 

2432 

END 

3160 

ENTER 

440? 

GETVftR 

2400 

GET1 

4520 

GMES 

2434 

HFLG 

0165 

HOP 

2?46 

HSPflRM 

4523 

I DENT 

0131 

IFLG 

0164 

I ST IM 

0134 

ITI 

0152 

IT I GO 

2624 

ITR 

0143 

LOOP 

3101 

MOft 

?501 

MOL 

7421 

m 

2560 

M62 

2561 

NEW 

2521 

NEWS 

2?61 

NEWT 

2661 

n:< 

3115 

NO 

3060 

N62 

2756 

N? 

3061 

OBEG 

2400 

ODRT 

1710 

OFF 

3000 

OFFS 

2762 

OGET 

0371 

ONES 

3116 

ORLIN 

1510 

OTRB 

0126 

OUTPUT 

3063 

OVERW 

0136 

prck: 

4522 

Pt-H 

0135 

RC-HK 

2671 

RCNl 

0153 

RENTS 

3062 

READ 

4516 

RE I N 

2765 

Rf I NF 

014? 




RELAY 

4515 

RESP 

0160 

RET 

2056 

RWRSK 

2764 

RN 

451? 

RNES 

0150 

RTIM 

0156 

RUN 

2600 

RUNTRB 

0120 

SC* IV 

0161 

SESSR 

012? 

SESST 

0141 

SFLG 

0162 

SMfiCH 

0076 

SMALL 

00? 5 

SMULT 

4512 

SQROOT 

0002 

SQURRE 

4514 

SRESP 

2714 

STAB 

2520 

STRRT 

2471 

Si 1M 

0146 

SIR 

0154 

SMP 

7521 

TRE: 

4506 

TABS 12 

0126 

TEM1 

2421 

TENS’ 

251? 

tem:< 

2016 

TEM4 

2114 

TFLG 

0162 

run 

0145 

TL IMS 

255? 

TNES 

0151 

TRIAL 

0122 

TVPET 

4501 

TVPETS 

4502 




